From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 21 Aug 2007 15:10:55 +0000 (+0000)
Subject: (vc-menu-map-filter): Use vc-call and reindent.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17293
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=06164f9643506e6ff43040c4a5d3351c628408c1;p=emacs.git

(vc-menu-map-filter): Use vc-call and reindent.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 62719124fd9..c206d5e953c 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -964,14 +964,14 @@ Used in `find-file-not-found-functions'."
   (if (and (symbolp orig-binding) (fboundp orig-binding))
       (setq orig-binding (indirect-function orig-binding)))
   (let ((ext-binding
-   (if vc-mode (vc-call-backend (vc-backend buffer-file-name) 'extra-menu))))
+         (if vc-mode (vc-call extra-menu buffer-file-name))))
     ;; Give the VC backend a chance to add menu entries
     ;; specific for that backend.
     (if (null ext-binding)
-    orig-binding
+        orig-binding
       (append orig-binding
 	      '((ext-menu-separator "---"))
-	            ext-binding))))
+              ext-binding))))
 
 (defun vc-default-extra-menu (backend)
   nil)